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Vous aimez l'art. 
Vour aimez les casses têtes... jouez PUZZLY 


PUZZLY, le premier puzzle sur o-ordinateur. 

Mais PUZZLY c'est aussi un graphisme étonnant, plusieurs niveaux de jeux, un 
chronométrage. , 

Quant aux images, sa vidéothèque ne cesse de s'agrandir. 


Ce coffret contient 4 puzzles. 
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4th international DAlnamic 
meeting on saturday 21 april 
in Tongelsbos, Westerlo. 


BOSSTRAAT2 3180 WESTERLO 


FROM 10 H TO 18H 


WITH : 


PACMAN-CONTEST 


1% price: RGB-MONITOR 
(offered by INDATA N.V.) 


2° price: OKI-MATRIXPRINTER 
(offered by MIKROSHOP HAGELAND P.V.B.A.) 


3* price: Software packages 
4* price: Software packages | 


5° price: Software packages 











Order your PAC-MAN cassette now 
(with competition-card), train yourself 
and join the contest on our meeting. 


PAC-MAN competition will end at 17 h. 


montage: DAInamic LN Е O | 


11 vous faut connecter la carte d'eproms sur le xbus (connecteur interne)de la 
machine puis effectuer une petite modification materiel qui consiste à relier 
deux point du circuit imprimée du DAI. 


е, 





Remarque: 11 est possible d'adapter le Ken-dos sur les drives de chez DAI. Une 
modification devra neamoins etre faite par le constructeur . Le temps d'accés 
sera alors legerement reduit. 


SOMMAIRE DES COMMANDES DU KEN-DOS 












































VERIFY Verifie un fichiers et affiche ses parametres 

UNLOCK Deprotege un fichier à l'aide du mot de passe 

RESTOR Reprend un fichier effacé | 
RENAME Renomme un fichier | 
PROTEC Protege un fichier contre l'ecriture 

MANUAL Acces manuel au secteurs/pistes | 
LPRINT Routine d'impression | 
FORMAT Formatte une disquette 

CREATE 

COMPAC Copie sur une disquettes sans les fichiers effaces 

BACKUP Fait une copie de la disquette 

VOICE Utilisée avec un processeur vocal (En cours d’ etude) 

DSAVE Sauve un fichier utilitaire 

DLOAD Charge " 2 

CLOSE Ferme un fichier 

CLEAR Change la protection 

WCAS Copie du disque vers une cassette audio 

TIME Utilise avec l'option Horloge temps réel 

TEST Testes les fonctions du DOS 

SWAP Echange le contenue de fichiers 

RCAS Copie d'une cassette Audio vers une disquette 

OPEN Duvre un fichier 

NAME Nomme la disquette 

LOCK Protege la disquette avec un mot de passe 

KILL Efface un fichier 

INIT Initialisation du systeme 

HELP Aide à l'utilisation (Mode d'emploi condensé) 

DISK Lecteurs en ligne uniquement 





DATE Entrée de la date (jour/mois/année) 


DAlnamic INFO 


K EN- DO s 


tPreliminaire) 


Vous trouverez ci-aprés une documentation sur le KEN-DOS 
dont la plus grande partie est extrait des notes fournies par le 
constructeur. 


Ayant essayé le systeme par moi meme je vous donnerais 
donc les premieres ( et malheureusement trop courtes ) impression 
d'utilisation. Cet article ne tente donc pas de vous donner le 
maximum de caracteristiques mais quelques informations éparses. 


Tout D'abord une presentation physique avec le ’sujet’. 
Une carte d'environ 15 Cm x 5 Cm se connecte à l'interieur du DAI 
C'est elle qui contient le DOS et eventuellement d'autres programmes 
sur EPROM. Ceci est un aspect trés interessant du systeme. Sur celui 
que j'ai pu tester le traitement de texte etait résident , et croyez 
moi c'est vraiment agreable à l'emploi. Une fois la carte montée et 
une modification mineur apportée au DAI vous pourrez alors replacer 
le ’capot’. Un cable plat permet de relier le bus DCE aux lecteurs. 
Ceux-ci contiennent la carte controlleur et l’alimentation(qui par 
la suite devrait etre un bloc séparé) qui se branche sur le secteur. 
Les lecteurs DCR eventuels se branchent sur le boitier des disques. 


Ensuite quelques mots sur son utilisation. А 1l’allumage 
de la machine le message ’KEN-DOS Vx.x' s'affiche en lieu et place 
du traditionnel "BASIC Vi.x'.Detail amusant la couleur du fond n'est 
plus le traditionnel gris mais ici une sorte de Какі (еп peritel) qui 
ne fatigue pas du tout la vue. Vous avez alors directement accés aux 
commandes classiques du Basic ainsi qu'a celles du DOS . Pour vous 
donner une idée aproximative de la vitesse une image en MODE 5 se 
charge en environ 2 Secondes. Enfin autre detail,lors de la commande 
DIR il est possible à tout moment de charger ( Ou de charger et de 
demarrer) le programme pointé sur l'ecran par l'action de l'une des 
touches curseurs, 


Pour finir je vous donnerais quelques idées de prix tels 
qu'ils sont actuellement pratiquées en Belgique (TTC). 


Ken-dos + 1 lecteur 260K-octets : 6500 Frs 
+ 2 : 8500 Frs 
+ 1 lecteur 400K-octets : 7000 Frs 
= : 9500 Frs 
+ 1 lecteur 8@@K-octets : 8000 Frs 
+2 211000 Frs 


Voilà, vous trouverez la plupart des details techniques 
dans les pages suivantes : bonne lecture ! 


Cedric DUFOUR 
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DAlnamic INFO 


KEN — D GS 


(D'prés une documentation en Anglais publiée par МІРІ) 


Le Ken-Dos a été congu spécialement pour repondre à la demande des 
utilisateurs du DAI qui desirent une grande capacitée de stockage avec un 


accés rapide et aisé. 


Le  controleur du Ken-dos peut supporter 4 lecteurs simple ou double 
densité, 40 ou 80 pistes ou 4 lecteurs double face au maximum. 
La capacité maximale du systeme est alors portée à 5,2 Mega-octets. 
Le systeme minimum quand à lui (1 lecteur simple face double densité) 
est de 200 K-octets. 


Le systeme d'exploitation reside entiérement en memoire morte  ( EPROM ). 
Les avantages de cette methode sont evidents : La plupart des systemes 
d’exploitations doivent etre chargée depuis la disquette , consommant ainsi de 
large plage de memoire ( memoire qui semble toujours insuffisante pour 
l'utilisateur ) et une partie du disque . Le Ken-dos quand à lui est toujours 
présent et n'occupe pas un iota de votre memoire utilisateur. De plus vous ne 
perdez pas de temps à charger le systeme d'exploitation à l'allumage ou au Reset 
Par consequent, vos disquettes pourront etre entierement consacrée a vos 
données et/ou programmes. бі vous n'utilisez qu’un seul lecteur il ne sera 
pas necessaire de constamment échanger les disquettes non plus que de 
garder constamment quelques copies du systeme d'exploitation. 


Un autre avantage du Ken-dos est que la carte de memoire morte commutable 
qui le contient a été congue pour supporter beaucoup plus de memoire 
que necessaire. De ce fait 89 K-octets de memoire morte sont disponibles. 
Cette possibilitée vous permet de stocker les programmes qui vous servent le 
plus (Par ex. Traitement de texte ,Assembleur, ...ect). L'accés à ces programmes 
se fera trés facilement grace à la commande BANK du dos. 


Pendant l’elaboration du Ken-dos il a été tenue compte du fait que de nombreux 
utilisateurs possedait déjà un peripherique pour la sauvegarde. 

Une option à donc été prévue dans le systeme pour pouvoir lire des cassettes 
audio ainsi que des DCR. Dans un futur proche il sera aussi possible de lire 
les disquettes de chez DAI et de sauver leur contenus sur une disquette du Ken- 
dos . Cette possibilitée sera operationelle grace à une routine utilitaire 
speciale 


Le Ken-dos complet se compose de : 


Une carte de memoire morte commutable . Sur cette carte il y al place pour un 

esie се © EPROMs. Chaque EPROM peut accepter, grace à des commutateurs, des 

далее е 5 IK, BK ou 16K. ( Soit en tout 96K ) . Meme si vous choisissez 

mcd er le CP/M bios ( qui occupe un support ) vous aurez encore largement 

vr a place pour les programmes de votre choix. 

іы carte control leur (à l'exterieur du DAI) qui peut supporter en tout quatre 
eurs simple ou double densités, Sur demande cette carte peut etre modifié 

pour implanter des lecteurs 8" ou des micro-lecteurs. 

-Une alimentation à découpage qui bien que plus couteuse à l'achat , offre une 


tres grande sécurité d* emploi i 
ғ sE А 
p lie permet d'alimenter la carte controlleu 


-Un dos sur EPROM: i i14 
etre re “+ s NER offre 43 commandes à l'utilisateur . Celles-ci peuvent 


іх en mode direct ou bien dans un programme. 
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Testen op 1 wel of 2 wel : IF PEEK (#FDOO) IAND 4830450 THEN ..... 
(beide mag !) 


Testen op een van de events : PaPEEK (@FD@6) 
(beide mag niet !) IF (P#2 IAND #20) IXOR (P IAND #20)<>6 THEN saa 


Een volgende toepassing zit in de WAIT instructie . De omschrijving die het hand 
boek ervan geeft is echter voor de meeste gebruikers ingewikkeld of misschien 
zelfs onbegrijpelijk, daar ik hem zelden zie gebruiken ook in gevallen waar dat 
wel had gekund, Er zijn vier mogelijkheden : WAIT I,J,K $ WAIT MEM I,J,K en nog 
WAIT 1,0 en WAIT MEM 1,2. De laatste twee zijn eigenlijk identiek aan de eerste 
twee maar nemen K gelijk aan nul. Vergelijk met de FOR ... TO ... STEP ... waar- 
bij de STEP ook niet opgegeven hoeft te worden 3 bij weglaten wordt als default- 
waarde een genomen . De instructies WAIT en WAIT MEM zijn in verwerking gelijk | 
het verschil zit in I : bij WAIT is I een real world input port en bij WAIT MEM 
een geheugenadres. Dit laatste kan via de memory-mapped 1/0 van de DAI tach weer 
een extern device zijn. Wat doen eigenlijk J en K ? Welnu de opgegeven byte (1) 
wordt ge’ IXOR'd met К en dan wordt dit resultaat ge'IAND' met J . Als het resul- 
taat nu gelijk is aan J wordt het programma normaal vervolgd . Duidelijk ? ? ? ? 
Mij niet, toen ik het de eerste keer las. Nog maar eens proberen : We nemen voor 
het gemak eerst de defaultwaarde nul voor К. Als byte I met nul ge’ IXOR’d wordt 
zal hij niet veranderen. Als we nu met J *IAND’en zal het resultaat alleen dan 
gelijk aan J zijn als de bits die bij J een zijn dat ook in het tussenresultaat 
zijn. De overige bits die in het tussenresultaat misschien een zijn hebben geen 
invloed op de WAIT test . Hiermee kan dus getest worden of de bepaalde bits in I 
aanstaan . Dus met WAIT MEM #FD@4,#19 wachten we tot eventbutton 1 ingedrukt 
wordt, vanzelfsprekend wachten we met WAIT MEM #Е000, #20 op het indrukken van 
eventbutton 2 en met WAIT MEM #FDO@, #30 wachten we op beide. Maar nu de 'IXOR* 
met K. We gaan na wat er met de verschillende bits gebeurt, zie volgend schema : 


nr, I K (I IXOR K) J (I IXOR K) IAND J 
i e e e 9 9 
2 9 9 9 1 e 
3 e 1 1 e 9 
4 9 1 1 1 1 
5 i 9 1 e 9 
6 1 @ 1 1 1 
7 1 1 9 9 9 
8 1 1 9 1 9 


We zien nu dat het resultaat alleen dan gelijk is aan J in de enen іп geval vier 
en zes, Dit is in het geval zes als de te onderzoeken bit in I een is en in J 
ook terwijl de bit in K dan nul moet zijn. Bij geval vier is de bit in I nul en 
in J een terwijl de bit in K dan een is. 

Nog anders gezegd : als we byte I moeten onderzoeken op bepaalde bits dan moeten 
we de bits die onderzocht moeten worden een maken in onze J en nul in K als het 
een moet zijn in I en een in K als het een nul moet zijn. J selecteert om het zo 
te zeggen de te onderzoeken bits en in K staat of nul of een moeten zijn . Om te 
wachten totdat eventbutton 1 ingedrukt wordt maar eventbutton 2 niet doen we dus 
de wachtinstructie WAIT МЕМ #FD@@,#3¢,#2@ en omgekeerd WAIT MEM #FDOO, #30, #19. 


We gaan verder met de INOT. Volgens de theorie zou elke een nul en elke nul een 
moeten worden. Dit is ook zo maar als we niet weten hoe de binaire representatie 
van getallen in de DAI geschiedt kunnen we toch moeilijkheden verwachten . Begin 
met POKE 6,#0F en POKE 7, { INOT #F@). Pas ops gebruik 6 en 7 om te PDKE ni ande- 
re adressen mogen wel maar 6 en 7 zijn ‘normaal’ veilig. ( S en 8 beslist niet) 
De tweede POKE geeft hier een NUMBER QUT OF RANGE. De POKE kan maximaal een byte 
aan en daar kan maximaal 255 in. De (INOT 4F@) is niet zoals we verwachtten #0F 
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maar SFFFFFFGF omdat er een integer van gemaakt wordt die vier bytes lang is. En 
de waarde #FFFFFF@F kan echt niet in een byte. We proberen het nogeens nu met de 
POKE 7,4 INOT #FFFFFFOF). Dit lukt en nu naar UT om met bv D 22 te zien wat er 
nu op 7 staat. Op sommige machines zal er nu FO staan op andere F2, de eerste is 
correct de tweede niet. De oorzaak ligt in de AMD 9511 math. chip die INOT fout 
behandeld, Jan Boerrigter waarschuwde hier reeds voor in de firmware , Als U dus 
over een AMD 9511 in uw machine beschikt kunt U de INOT op twee manieren gebrui- 
ken} correct door eerst POKE #04,0 te geven Of fout maar wel consequent na aan- 
zetten van de math.chip door POKE #04,125 (of reset), We kijken naar de praktijk 
en doen met math.chip uit PINOT 5 en krijgen -6, tenminste als U IMP INT gegeven 
hebt, anders een foutmelding !!!! De DAI zet de floating point waarde hier niet 
zelf om in integer. ?INOT 2 levert -1 en PINOT (-8) geeft 7 . Het komt er dus ор 
neer, dat eerst bij het argument 1 wordt opgeteld en dan het tegengestelde geno- 
men wordt. Nu de math. chip aanschakelen, FINOT 5 geeft -4, PINOT © geeft 1 en 
PINOT (-8) geeft nu 9. Het komt er nu op neer dat eerst het tegengestelde van 
het argument genomen wordt en dat er dan 1 bij wordt opgeteld. Het verschil tus- 
sen math. chip aan of uit is dus altijd 2. Maar pas op: INOT (INOT 4) levert wel 
altijd 6, math. chip aan of uit maakt nu niet meer uit. De syntaxcontrole is bij 
INOT overigens ook niet correct. We krijgen geen protest als we 75 INOT intikken 
en dat kan knap lastig zijn. 


De laatste operatoren die nog niet behandeld werden zijn de SHL en de SHR. Dege- 
nen die weleens in assembler hebben gewerkt, zullen de afkortingen wel begrijpen 
maar voor de anderen : SHL staat voor SHift Left en SHR voor SHift Right. Deze 
operatoren werken niet op bits maar op groepen bits. In assembler op een groepje 
van 8 of 9 bits die dan zelfs rond geschoven worden (RLG, RRC, RAL en RAR) en in 
BASIC op een integer dus vier bytes, Bij G SHL M worden alle bits van G M plaat- 
sen naar links geschoven en bij 8 SHR N worden al de bits van G N plaatsen naar 
rechts geschoven. De beide bewerkingen kunt U zich voorstellen als een zogenaamd 
"window's op een lijn staan oneindig veel nullen en ergens op die lijn staat het 
getal dat u bekijkt door een raam (‘window’) zodat U maar 32 bits (4 bytes) te- 
gelijk kunt zien. Door de SHL en SHR kunt U nu dit raam verschuiven. Maar pas op 
de vergelijking is gemaakt om U te laten zien dat er enen verdwijnen en nullen 
bijkomen, de richting is nu verwarrend. Bij SHL schuift het getal naar links dus 
lijkt ons raam naar rechts te schuiven; bij SHR is dat natuurlijk analoog . Maar 
hoe kunnen we SHL en SHR nu handig gebruiken ? 

Het meest voor de hand liggende gebruik is het omwerken van bitposities naar ge- 
talwaarden. Als we zeggen А=РЕЕК (#Ер00) ТАМ) #30 en dan B=A SHR 4 zal B afhanke” 
lijk van de ingedrukte eventbuttons @,1,2 of 3 zijn . De 9 betekent dat er geen 
eventbutton is ingedrukt, 1 en 2 betekent dat een van de eventbuttons  ingedrukt 
wordt en 3 dat beide worden ingedrukt, Ook hier is weer een waarschuwing op zijn 
plaats: А=РЕЕК (#Ғ000) ТАМО #30 SHR 4 zal naait het gewenste resultaat geven maar 
wel een getal van drie of kleiner, Ik vermoed overigens dat het altijd 3 is maar 
kan dat niet nagaan. ( wie informeert mij ? ) AS(PEEK(#FD@@) ТАМ) #30) SHR 4 zal 
wel correct werken . De oplossing van dit probleem zit in de volgorde van de be- 
werkingen. De SHR heeft een hogere prioriteit dan de IAND en zal de DAI beginnen 
met het uitrekenen van #30 SHR 4, dit levert 3 op . Vervolgens zal de inhoud van 
#FDO@ ge'IAND' worden met 3. Bij mij waren bij al de tests bit nul en een steeds 
een en was het resultaat dus steeds 3 . Voor zover mij bekend worden de bits nul 
en een op #FDOG nergens voor gebruikt en daarom weet ik ook niet wat ze kan ver~ 
anderen. NB A=PEEK(#FD@@) SHR 4 ТАМ 3 zal ook goed werken. 

Een andere toepassing vinden we in berekeningen. Als de bits van een integer al- 
lemaal een naar links worden geschoven zal het getal tweemaal zo groot worden en 
schuiven we meerdere bits naar links zal het getal net zo vaak verdubbelen als 
er bits naar links werd geschoven, Getallen worden zo snel te groot, maar hebben 
ме een vermenigvuldiging met 18 nodig is het misschien nuttig te weten dat SHL 4 
hetzelfde effect heeft en sneller werkt. Voor vermenigvuldiging van A met 2 kun- 
nen we het best A+A nemen. 

Een nog niet besproken toepassing van de bitoperaties ligt bij grafische "trucs" 
en die wil ik later nog eens apart behandelen. 


Frank H. Druijff 
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Het onderwerp van deze keer is zoals aangekondigd de verschillende logische ope- 
ratoren die de DAI-BASIC kent. De functies zullen later ook nog eens aan bod ko- 
men. Er zijn er veel die wel wat nadere toelichting behoeven . Weet U soms iets 
bijzonders te vertellen over een van de operatoren of functies meldt mij dit dan 
alstublieft, Ik zal het dan weer doorgeven aan alle DAlnamic-lezers. 


Nu de bit-operators IAND, IOR, IXOR, SHL, SHR en INOT. De laatste is een bijzon- 
der geval omdat hij maar een argument heeft en de andere er twee hebben . In het 
handboek staan ze echter bij elkaar en dat is vermoedelijk gedaan om alle bitbe- 
werkingen bij elkaar te houden, Wilfried Hermans heeft een programma geschreven 
dat de bit operators demonstreert; dit programma is gepubliceerd in DAInamic 12, 
In dit programma kunnen we de bit-patronen goed zien en de werking van de ver- 
schillende mogelijkheden beter leren begrijpen. Jammer is alleen dat een echte 


bitbewerking als INOT er niet bij staat en de MOD wel terwijl dat geen bithbewer- 
king is. 


We beginnen met met IAND,IOR en IXOR omdat ze, alhoewel ze verschillende uitkom- 
sten geven, wel dezelfde structuur hebben. De woorden beginnen allemaal met een 
I om aan te geven dat ze alleen voor integers  ( beter gezegd vier bytes enen en 
nullen daar het signbit ook meedoet) gebruikt worden. Ze kunnen wel met floating 
point getallen gebruikt worden, maar die worden of toch eerst omgezet in integer 


of als we byte voor byte werken zo veranderd dat de resultaten zelden zinvol zul 
len zijn. 


AND betekent EN, OR betekent OF en XOR betekent eXclusieve OF, alle in de logi- 
sche betekenis, Hiervoor nog wat uitleg die ik ook bij mijn wiskundelessen ge- 
bruik: EN en QF zijn in het dagelijks spraakgebruik niet duidelijk in betekenis. 


Lees de volgende twee verhaaltjes maar en denk na over de gevolgtrekkingen die 
we dan kunnen maken. 


I) Jan wil naar de bioscoop en laten we zeggen dat dit tien gulden kost . Als 
hij zonder problemen naar binnen wil zal hij dus een toegangskaartje moeten 
hebben “ОҒ” een tientje om dat te kopen, Lees de zin zonder overdreven na- 
druk op 'OF'. Iedereen er nu mee eens ? Goed Jan naar de bioscoop, hij heeft 

zelfs twintig gulden bij zich . Hij koopt een kaartje en wordt tot zijn stomme 

verbazing bij de ingang tegengehouden. Hij heeft toch een kaartje “ЕМ” een tien- 


tje bij zich? Na wat nadenken begrijpen we dat ‘OF’ hier betekende het een, het 
ander maar ook beide zijn toegestaan. 


11) De volgende dag bezoekt Jan de verjaardag van zijn tante die hem ор zeker 
moment de taartdoos voorhoudt en hem vraagt : "Wil je een vruchtengebakje OF 
een slagroomgebakje ? " Jan herinnert zich de bioscoop nog en denkt: " Heide 

mag ook." en grijpt met beide handen een gebakje. En nu is het weer niet goed !! 


Het zal U nu hopelijk wel duidelijk zijn dat het spraakgebruik niet erg precies 
is met “ОҒ”. Dok voor “ЕМ” kunnen we voorbeelden geven die duidelijk  maken hoe 
onduidelijk het is, Denk maar eens aan garanties voor auto’s ' 1 jaar of 20000 
Ет” zegt de ene garagist terwijl de andere 71 jaar en 20000 km’ zegt. Beide be- 
doelen vermoedelijk 'max 1 jaar en max 20008 km’; dwz aan beide eisen (auto min- 
der dan 1 jaar oud / kilometrage minder dan 20000 ) moet voldaan warden om voor 
garantie in aamerking te komen. 

In de programmering kunnen we dergelijke onduidelijkheden niet tolereren. In het 
handboek staan niet voldoende richtlijnen om er uit te komen. Over de IXOR wordt 


zelfs helemaal niets verteld. De bit-operaties kunnen echter uit de volgende ta- 
bellen begrepen worden, 
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Onthoudt U de tabellen maar aan de hand van de volgende regels: 
IAND --- beide moeten waar ( = 1 ) zijn 
IOR ---- minstens een moet waar ( = 1 ) zijn 
IX0R --- precies een moet waar ( = 1 ) zijn 
om het resultaat waar ( = 1 ) te krijgen. In alle andere gevallen is het onwaar 
{ = 0 ), Bij INOT verandert simpel elke 1 in een @ en elke @ in een 1. 
Speelt U met deze kennis maar eens met het programma van Wilfied Hermans en snel 
zult U de resultaten correct kunnen voorspellen. 


De IAND en de IOR bestaan ook in een logische versie, de IXOR (en INOT) vreemd 
genoeg niet. Ook ontgaat het mij waarom er verschillende woorden voor worden ge- 


bruikt. 


De toepassing van deze bitbewerkers is meestal te vinden in input / output han- 
delingen bij gespecialiseerde programma's . Een eenvoudige toepassing die bijna 
elke spelletjesfanaat kent is het controleren op de eventknoppen, Als de event- 
button rechts wordt ingedrukt, wordt bit 4 op adres #FD00 1 en bit 5 wordt 1 als 
de linker eventbutton wordt ingedrukt. Ze worden vanzelfsprekend beide 1 als aok 
beide knoppen worden ingedrukt. Als alleen bit 4 aanstaat ziet #FDGG er dus in 
bitnotatie als volgt uit : 00010000 (=#1@) en bij bit 5 80100000 (=#20) en bij 4 
en 5 00110000 (=#30), Pas op 3 niet ‘normaal’ tellen van links naar rechts met 
1,2,3,.... maar juist van rechts naar links met 9,1,2,.... . Maar de andere bits 
van #FD@@ kunnen ook 1 zijn als gevolg van de zogenaamde memory mapped 1/0, die 
de DAI kent . We kunnen dus niet simpel doen: IF PEEK(HFD@Q)=#1@ THEN .........; 
omdat dat alleen maar goed gaat als de andere bits van #FD60 nul zijn. We zullen 
de te onderzoeken bit (^s) eerst moeten uitselecteren. Dit kan op vele manieren, 
ik zal er enkele noemen; probeert U er zelf eens andere te vinden, 

Bij PEEK (#FD@@) ТАМО #19 krijgen we alleen bit 4 in het resultaat en als dat dan 
nul is wordt de rechterknop niet ingedrukt, is hij niet nul en dus 16 (7910) dan 
is de knop wel ingedrukt. Met ТАМО #2% krijgen we bit 5 en kunnen we zien of de 
linkereventbutton is ingedrukt en met 952 testen we beide tegelijk. In het laat- 
ste geval testen we met ongelijk nul alleen op het indrukken van linkerevent of 
rechterevent met ‘of’ in de juiste logische betekenis , dus ook beide ingedrukt 
houden heeft effect. Willen we echter meer specifiek op de events testen bv, een 
wel maar ander niet of precies een van de eventbuttons ingedrukt of beide tege- 
lijk ingedrukt kunnen we met behulp van de net gegeven mogeli jkheden iets doen : 


Testen op 1 (2 onbepaald) : IF PEEK (CHFD@@) IAND 4102810 THEN ..... 
Testen op 2 (1 onbepaald) : IF PEEK(MFDOO) ТАМО 42029820 THEN ..... 
Testen op 1 niet (2 onbepaald): IF PEEK(#FD@@) IAND 8100 THEN ..... 


Testen op 2 niet (1 onbepaald): IF PEEK(8FD09) IAND $2020 THEN sessa 


Testen op 1 wel en 2 niet: IF PEEK(HFD@@) IAND #30=#10 THEN sesse 
Testen op 2 wel en 1 niet : IF PEEK(#FD@@) IAND %30-%20 THEN ..... 
Testen op 1 wel en 2 wel : IF PEEK(#FD00) IAND S3SO-420 THEN ..... 
Testen op 1 niet en 2 niet : IF PEEK(HFDOG) IAND #3@=@ THEN ..... 
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CALL #F7C0,C$ — F7CO FE 22 CPI 22 ENTRY FOR CALLED COMMANDS mme 








F7C2 CO RNZ PARAMETER MUST BE STRING DISK DIRECTORY XXXXXXX 
F7C3 C5 PUSH B SAVE BASIC POINTER ТО ЖАЛАЛА Асулан ЕЕ stony eel ыыы есет лы parte eee M EUH eee Ene dn 
F7C4 БЕ mov E,M GET ADDR. OF THE E. 
F7C5 23 INX H STRINGVARIABLE WITH LOCATION USAGE 
F7C6 56 MOV D,M THE DOS COMMAND 
F7C7 ЕВ XCHG 00 0C CHARACTER FOR CLEAR SCREEN 
F7C8 7E MOV A,M GET LENGTH OF STRING oi - 17 23 CHARACTER FOR DISK-IDENTIFICATION 
F7C9 32 34 01 STA 0134 SET IT AS INPUT-LENGTH 18 - 1F FREE 
F7CC 23 INX H 
F7CD 22 32 01 SHLD 0132 COMMAND-STRING-ADDR. 2 00 - 01 42 20 (='B ') DIRECTORY-BLOCK FOR А BASIC-PROGRAM 
F7D0 3E 01 MVI 4,01 SET INPUTSWITCH-FOR Í 02 - 17 22 CHARACTERS FOR PROGRAM-IDENTIFICATION 
F7D2 32 35 01 STA 0135 INPUT FROM STRING Í 18 - 19 SIZE OF HEAP 
F7D5 21 00 00 LXI H,0000 і 1А - 1B SIZE OF PROGRAM 
F7D8 22 71 02 SHLD 0271 DISABLE COMMAND EXIT _ 1C - 1D SIZE OF VARIABLE-TABLE 
F7DB 39 DAD SP lE START TRACK С 01 = TRK 1 SIDE 0 ) 
F7DC 22 73 02 SHLD 0273 SAVE CURRENT STACK-P. 1F END TRACK ( 81 = ТЕК 1 SIDE 1 ) 
F7DF OE 00 MVI C,00 RESET CURSOR FOR INPUT : 
Р7Е1 CD 79 FO CALL F079 EXECUTE DOS-COMMAND 00 - 01 GD 20 (z'M ') DIRECTORY-BLOCK FOR MEMORY-SAVE 
------------------------------------------------------------------------ 02 - 17 22 CHARACTERS FOR DATA-IDENTIFICATION 
EXTENDED EXIT F7E4 Di POP D RETURN FROM DOS-COMMAND 18 - 19 FREE 
F7E5 3E F8 MVI A,F8 1А - 1B FROM LOCATION (SAME AS W IN UTILITY-MODE) 
F7E7 F9 SPHL RESTORE STACKPOINTER 1C - JD TO LOCATION 
F7E8 BC CMP H IF IN COMMAND-MODE, 1E START TRACK ( 01 = ТЕК 1 SIDE 0 ) 
F7E9 CA 51 FO JZ F051 THEN NORMAL DOS-EXIT 1F END TRACK ( 81 = TRK 1 SIDE 1) 
F7EC 2A 73 02 LHLD 0273 RESTORE STACKPOINTER IF 
F7EF F9 SPHL CALLED COMMAND FROM BASIC 00 - 1F E5 E5 E5 E5 FREE ENTRY 
F7F0 АҒ XRA A 
F7Fl 32 34 01 STA 0134 RESET INPUT FROM 134 JS SES SSSR aa MORE TER PPS AMAR ANS 
F7F4 32 35 01 STA 0135 STRING-VARIABLE XXXXXXX MEMORY ALLOCATION 00000 
F7F7 Сі PoP B RESTORE BASICSPOIMTER. = j= ©  \<ReSeeGRaRSeroerssocmedceseer ates teess taser Mentitum sar Toes Ба шш ыраа Ае 
F7F8 3E А0 MVI А,А0 IF THE COMMAND WAS 
F7FA BB CMP E NOT A LOAD, THEN RETURN LOCATION USAGE 
F7FB CO RNZ TO THE BASIC PROGRAM 
F7FC C3 B7 F7 JMP F7B7 IF LOAD, S0 EXECUTE THE 0038 - 004D READ/WRITE ROUTINE DURING DISK-I/0 
F7FF FF DATA FF RUN COMMAND ORIGINAL CONTENTS MILL BE SAVED AND REPLACED 
01ЗЕ - 01BD DIRECTORY-INPUT-BUFFER, SAME LOCATION AS 
THE DAI INPUT-BUFFER OF 128 BYTES 
0248 - 025F SAVED LOCATIONS 838 - #4F DURING DISK-I/0 
BETWEEN I/0 USABLE AS ENVELOPE STORAGE. 
DISK-I/0 WILL DESTROY CURRENT ENVELOPE. 
0260 - 0270 DISK WORK AREA 
0260 DEVICE SELECTION 
0261 CURRENT STATUS (COMMAND MODE) 
HARDWARE: TEAC FC-50 CONTROLLER WITH TEAK FD-50F DRIVE 0262 CURRENT COMMAND 
9263 CURRENT DATA IN/OUT 
5.25 INCH, DOUBLE SIDED FLOPPIES WITH 80 TRACKS / SIDE 0264 CURRENT TRACK 
0265 CURRENT SECTOR 
96 TPI, SINGLE DENSITY RECORDING TECHNIQUE (FM) 0266 TRACK PRESET 
0267 SECTOR PRESET 
TYPE NUMBER OF SECTORS SECTORLENGTH TRACK-CAPACITY 0268 - 0269 BUFFER-POINTER AT START OF READ 
0 16 128 2048 026A - 026B BUFFER-POINTER AFTER READ 
1 9 256 2304 026C - 026D BUFFER-POINTER AT START OF WRITE 
2 5 512 2560 026E - 026F BUFFER-POINTER AFTER WRITE 
0270 1/0-STATUS AFTER READ OR WRITE 
PROGRAMS]DESKCORGANTSATIONS «ed 7 -52е45272:52-4-45--2255-25---5--54-а2-2-5-Иа с ersten engere eenn 
9271 - 0272 SAVED STACK POINTER DURING DOS-COMMAND 
SIDE TRACK CONTENT 0273 - 0274 SAVED STACK POINTER DURING DOS-BASIC-CALLS 
0 00 DIRECTORY F000 - F7FF D0S-ROM 
i 85 DIRECTORY BACKUP 
ЭМ nn ЕЕЕ 
> XXXXXXX USABLE ENTRYPOINTS XXXXXXX 
А лми D cR a ca aa 
0 4F > 
> PROGRAMS AND DATA FOFO x DESELECT DISK-DRIVE AND MOTOR OFF 
1 01 > F100 x PUT DISK-STATUS TO #261 
К > F10F x PUT DATA REGISTER TO #263 
z > F11E x PUT TRACK REGISTER TO #264 
1 4F > F12D x PUT SECTOR REGISTER TO #265 
F13C x DISK MOTOR ON, NO CHECKS 
F147 X SET DEVICE REGISTER FROM $260 (SELECT) 
DIRECTORY LAYOUT: 4 BLOCKS AT 32 BYTES PER SECTOR À F153 x SET DATA REGISTER FROM #263 
THE FIRST BLOCK IS FOR DISK-IDENTIFICATION à FISF x SET SECTOR REGISTER FROM #267 
63 BLOCKS FOR PROGRAM OR DATA IDENTIFICATION = А F16B x SET TRACK REGISTER FROM #266 
: F177 x SET COMMAND REGISTER FROM #262 
F190 INIT DCE-BUS TO MODE 0, A-IN,B-QUT,C-IN 
F227 x READ FROM DISK 
F26C x WRITE TO DISK 
F334 RESTORE DISK TO TRACK 00 WITH CHECK 
F34A SEEK TO TRACK, A=DEVICE BITS,D=TARGET TRACK 


Е7С0 | COMMAND VIA BASIC: C$z"LOAD 23"+CHRSC13):CALLM #F7C0,CS 
+--> ALL REGISTER ARE SAVED AND RESTORED 
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%----> 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
ү wee 
l | 
%--|-- 
| | 
4--|-- 
| +-> 
| 
| 
| 
----- + 
+-> 
| 
ae 
| | 
| | 
| | 
| to 
| tassen 
| | s 
%--1--|-> 
| | 
pose 
%----> 


А1 


-IA 


64 
98 


АЗ 
1A 


64 
14 
9B 


6с 
42 
AQ 
62 
6C 
6E 


BF 
4D 


5D 


6C 
5D 


6E 


19 
EO 


0D 
DF 


сс 
Е5 


20 
DE 


6c 
64 


$E 
64 


6C 
1A 
6С 
6А 
ЗЕ 
6С 
6А 


6А 
86 


02 
DE 


F5 
02 


02 
DE 


F5 
F7 
02 
02 
F5 
02 


F2 
02 


F5 


F3 


02 
F3 


02 


DD 
F6 


F6 
F6 


F6 


02 
F5 


02 
F5 


02 
DE 
92 
02 
01 
02 
F5 


02 
F6 


START OF VARIABLE TABLE 
SUBSTRACT TO GET SIZE 


PUTADR FOR REL. PRG. SIZE 
SAVE BUFFERPOINTER (DIR) 


END OF VARIABLE TABLE 
SUBSTRACT TO GET PRG.SIZE 
GET BUFFERPOINTER (DIR) 
PUTADR REL. PRG.SIZE+TABLE 


NTRK CALL VIA BUFFERSET 
BUFFERADDR=PRG.START 

INCR. ENDTRACKNUMBER 

AND SAVE START AND END 

SET BUFFER FOR DATA 
SIDESEL 

WRITE COMMAND 

TO COMMAND AREA 
MULTISECTOR-WRITE 

GET CURRENT BUFFERPOSITION 


NEXT TRACK 


LAST TRACK REACHED ? 
YES JUMP 

END OF SIDE 0? 

NO, JUMP 

YES, CHANGE TO SIDE 1 
AND CONTINUE SAVE 
GLOBAL 1/0-ТЕ5Т 
RESTORE AND DISK-OFF 


SAVE MEMORY 


FIND FREE SPACE IN DIR 
FLAG FOR MEMORY-SAVE M 
RETAIN DIR-POINTER 
HEXIN FOR FROM-VALUE 


SAVE IT 
HEXIN FOR TO-VALUE 


SAVE IT 

GET DIR-POINTER BACK 
DECREMENT INPUT-STRING 
GET MAX. 25 

CHARACTER OF 
DOCUMENTATION-TEXT 
UNTIL CR AND 

STORE IT IN 

THE DIR-BUFFER 


ALL TEXTSPACE USED 
PAD REMAINDER WITH BLANKS 


GET "FROM" VALUE 
PUTADR 


GET "TO" VALUE 

PUTADR 

SAVE CURRENT DIR-POINTER 
GET "FROM" VALUE AGAIN 


SUB FOR NUMBER OF BYTES 
TO BE SAVED 

NUMBER OF BYTES IN D 
SAVE THE "FROM" VALUE 
TO THE FREE LOCATION 
REPLACE OUTPUTBUFFER-ADDR 
BY THE DIR-ADDR 

GET CURRENT DIR-POINTER 
NTRK 

ENDTRACKNUMBER*1 

GET SAVED "FROM" VALUE 
CONTINUE AS BY aSAVE 





NTRK VIA BUFFERSET 
SET DIR-BUFFER ADDR. 
IN DISK-AREA 


NTRK 


READ FROM EDITBUFFER 
=POKE #135, #2 


PREPARE FOR MERGE OF 
BASIC PROGRAMS 


RESET HEAP-POINTER 
=POKE #29B, HEC 
POKE #29C,#02 





RUN XXX WITHOUT CLEAR OF 
VARIABLES 

GET AND DECODE 
LINENUMBER AS INTEGER 
FOR THE GOTO-COMMAND 


INSERT GOTO-CODE 
SET COMMAND-END 


LOAD COMMAND-ADDR. 
CONTINUE AS FOR 30 


a masc eR |------4---2.2...........-.-..-..------------------------------- 
BASIC MODE 0 COMMAND 


30 


B,F79F 
9040 
co 
F08D 
H,F000 
006Е 
C892 


COMMAND-ADDR. FOR MODE 0 
CHECK IF IN BASIC-MODE 
IT IS ? 

NO, --> SYNTAX-ERROR 
RE-ENABLE 

DOS-COMMANDS 

EXECUTE BASIC COMMAND 


C892 


COMMAND-ADDR. OF RUN 
EXECUTE BASIC COMMAND 


BASIC RUN COMMAND 
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| F512 
| F515 
| F516 
| F517 
| F518 
| F51B 
%-- F51D 
| F520 
i F522 
%-- F523 





CD 11 F4 
14 

7A 

BB 

CA EE F3 
FE 50 

C2 FF F4 
3E 81 


02 


0A 
DE 
F5 


F5 
02 


F5 


F5 
F5 


CALL 
INR 
MOV 
СМР 
JZ 
CPI 
JNZ 
MVI 
MOV 


Em 


"TW PH TE o c 
` ` m 
әз 3 о 
о 


We us + хал + 
ro 


ne 
АЛ co O* O 4A 00 Ul sO 2» 4 C2 Un OO EI 


TO oO x Tm Neo EN > 
muu GI cn 


EN 


CHECK 1/0 

NEXT TRACK 

STOP IF LAST TRACK 

END OF SIDE 0 ? 

CONT. INPUT AT NEXT TRACK 


CONT. INPUT AT 
TRACK 1 / SIDE 1 


MEMORY-READ ? 
EXIT IF NOT 


GET MEMORY-POINTERS 
FROM DIRECTORY-TABLE 


INPUT BUFFER - MEMORY- 
START-LOCATION 
START TRACK IN REG. D 


END TRACK IN REG. E 


WITCH SIDE ? 

SIDE 0 

SIDE 1 

MASK FOR CORRECT TRACKNR. 


SELECT SIDE 1 


SELECT SIDE 0 
SEEK 


SET STARTSECTOR = 1 


SET ENDSECTOR = 5 
SET SECTOR-REGISTER IN FDC 


AT ENTRY: DE-BUFFERPOINTER 
HL=VALUE 


PUT ADDR. DE TO DIR-BUFFER 
POINTED BY HL 
AT RET. DE=VALUE 


HL=BUFFERP. + 2 
DEFINE NUMBER OF TRACKS 
NUMBER OF TRACKS=1 

NUMBER OF BYTES / TRACK 
"dub HL-DE, MORE SPACE ? 
YES, NEED MORE 

INCREMENT SPACE BY 8A00 


AND TRACKNUMBER BY 1 
CHECK AGAIN 

GET CURRENT TRACK USED 
= STARTTRACK-1 

END OF SIDE 0 ? 

NO, SO JUMP 

LOAD VALUE FOR SIDE 1 
GET BUFFERPOINTER 

SET START-TRACK-NUMBER 
IN DIR-BUFFER AND IN 
REG. D FOR WRITE-LOOP 


COMPUTE ENDTRACK-NUMBER 
BY INCR. TRACKNUMBER IN A 
UNTIL NUMBER IN B=0 AND 
TAKE CARE FOR SIDE CHANGE 
NOM ON SIDE 1 

IF VALUE DO IS REACHED 
THEN THE DISK IS FULL 


SET ENDTRACK IN DIR-BUFFER 
AND IN REG E FOR 
THE WRITE-LOOP 





FRE 


1+———— U u. u Uy 








F5D1 


%----> F5D4 


I 
I 
| 
| 
| 
| 
| 
| 
| 
| 


+--]--- 


£= 


F5D5 
F5D7 
F5DA 
F5DB 
F5DD 
F5DE 
F5DF 
F5E2 
F5E3 
F5E6 


--|-----%-> Е5Е? 


F5FA 
F5FD 
F600 
F601 


34 60 02 LDA 0260 
E6 EF ANI EF 
32 60 02 STA 0260 
CD 47 F1 CALL F147 
3A 67 02 LDA 0267 
32 65 02 STA 0265 
CD 6C F2 CALL F26C 
CD 11 F4 CALL F411 
c9 RET 

CD 00 Fl CALL F100 
3A 61 02 LDA 0261 
E6 40 ANI 40 
C2 1р ға JNZ F41D 
16 01 MVI D,01 
CD AF РЗ CALL F3AF 
lE 04 МУІ Е,04 
21 3E 01 LXI H,013E 
7E MOV A,M 
FE Е5 CPI E5 
CA 04 F6 JZ F604 
7D MOV А, 
C6 1F ADI 1F 
6F MOV L-A 
7E MOV A,M 
32 66 02 STA 0266 
1D DCR E 

CA EA F5 JZ F5EA 
23 INX H 

C3 ра F5 JMP F5D4 
3A 67 02 LDA 0267 
3C INR А 

FE il CPI 11 
CA F7 F5 JZ F5F7 
57 mov р,А 
C3 CC F5 JMP F5CC 
CD 55 DD CALL DD55 
21 2A F6 LXI H,F62A 
CD 04 DA CALL DADA 
El POP H 

C3 B4 F2 JMP F2B4 
ES PUSH H 

ЗА 60 02 LDA 0260 
F6 14 ORI 14 
32 60 02 STA 0260 
21 3E 01 LXI H,013E 
22 6C 02 SHLD 0260C 
00 NOP 

CD 47 Fl CALL F147 
ЗЕ А0 MVI A,A0 
32 62 02 STA 0262 
3A 67 02 LDA 0267 
32 65 02 STA 0265 
CD 6С F2 CALL F26C 
CD 11 F4 CALL F411 
El POP H 

C9 RET 


SET DEVICE TO SIDE 0 


SET DIR-SECTORNUMBER FOR 
THE UPDATE 
UPDATE DIRECTORY (SIDE 0) 
CHECK I/0 


GET STATUS 


CHECK IF WRITEPROTECTED 
JUMP IF PROTECTED 

SET SECTOR=1 

AND READ DIRECTORY 
SEARCH THE 4 BLOCKS 


FOR A FREE SPACE 
ES-FREE SPACE 
FREE SPACE FOUND 


POSIT FOR NEXT DIR ENTRY 


RETAIN MAX USED SECTORS 


THIS BLOCK IS FULL 
POSIT TO NEXT ENTRY 
CHECK AGAIN 


SET FOR NEXT SECTOR 


JUMP IF NO MORE AVAILLABLE 
CONTINUE SEARCH 
IN NEXT SECTOR 


SEND NEW LINE 

SETUP AND DISPLAY 

DISK FULL MESSAGE 
SIMULATE RETURN 

EXIT VIA ABORT & DISK OFF 


DIRECTORY BACKUP 
SELECT SIDE 1 


SET OUTPUT-BUFFER 

WITH CURRENT DIRECTORY 
SECTOR 

SELECT DEVICE 

WRITE CURRENT 
DIRECTORY-SECTOR 

ON SAME PLACE 

BUT ON SIDE 1 

OF THE DISK 

CHECK 1/0 


$449534B2046554C4C0D00 


Е65А 
F65D 
F660 
F661 


DISK FULL 

F5 PUSH PSW 
C5 PUSH B 

D5 PUSH D 

E5 PUSH H 

CD BF F5 CALL F5BF 
36 42 MVI M,42 
1E 17 MVI E,17 
23 INX H 

CD EO DD CALL DDEO 
FE 0D CPI oD 
CA 53 F6 JZ F653 
77 MOV MLA 
oc INR c 

1D DCR £ 

C2 40 F6 | JNZ F640 
C3 59 F6 JMP F659 
23 INX H 

36 26 MVI M,20 
1D DCR E 

C2 52 F6 JNZ F652 
EB XCHG 

2А 9D 02 LHLD 029D 
CD 64 F5 CALL F564 
E5 PUSH H 

24 9B 02 LHLD 029B 


FIND FREE SPACE IN DIR 
SET BASIC-FLAG 

GET 23 

CHARACTERS 

TO ENCODE 

CR ? 

YES, END OF INPUT-TEXT 
NO , STORE CHAR. IN 
DIR-BUFFER 

NEXT CHAR 


PAD REMAINDER WHITH BLANKS 


PUTADR FOR HEAP-SIZE 84-20 55 


START OF HEAP 





READ-DIR 


F2CA 
0260 
80 IS DEVICE ON ? 


арон 


ЕЗЕА NO, 50 POP+POPRET 
F334 RESTORE 
4,84 
0260 SELECT DEVICE 
F147 
Н,015Е INPUTBUFFER 
0268 
ÀD 
0267 SET STARTSECTOR=ENDSECTOR 
0265 
F15F SET SECTOR-REGISTER 
A,80 
0262 SET READ-DATA-COMMAND AND 
F227 EXECUTE IT 
4,80 
0260 
F147  DESELECT DRIVE 
F411 CHECK 1/0 
RETURN TO CALLER IF NO ERRORS 
H 
H POPRET FROM DIFERENT LEVELS 
C14D 
FOFO DESELECT DRIVE 
F334 RESTORE 
F2B4 aDOFF 
H 
H MULTI STACK-LEVEL 
D 
B SYNTAX-ERROR-EXIT 
PSW 
H 
F075 


0030313233343536 373839414243444546 
3456789ABCDEF 


0 


2 


HEX-TABLE 


CHECK 1⁄0 





01 
AF 
94 
3E 


E5 
2D 


FF 


F3 
00 


60 
34 


60 
20 


18 
44 
6A 
08 


ES 
3D 


F3 
01 


F4 
DA 
F4 


DD 


DD 
DD 


DB 
F4 


F4 


JNZ 


PSW 

B 

D 

H 

0270 GET I/0-STATUS 

C14D POPRET IF NO ERRORS 
DD55 SETUP ERROR-MSG 
H,F328 

DADS DISPLAY IT 

F2B4 aDOFF 

PSW DISPLAY DIRECTORY 

В LOCATED ON TRACK 00 
H 

D,01 BEGIN WITH SECTOR 1 
F3AF READ DIRECTORY SECTOR 
E,04 

H,013E 

AM 


E5 UNUSED DIR-ENTRY ? 


F42D YES, SO RESHOW DIR 
H 
DAFF PMSGR 
F319 DISPLAY BLANK HEADER 
H,F400 ENTRY TO HEXTABLE 
1,9 
А,М 
DD60 OUTC SECTORNUMBER 0-Ғ 
Et 
DD60 QUTC PROGRAMNUMBER 0-3 
A,20 
DD60 OUTC SPACE 
A,18 
H 
quet PSTRM DISPLAY DIR-TEXTLINE 
F46A NEXT LINE OR ENTRY-PROCESS 
А, 
"бв POSIT FOR NEXT TEXTLINE 
L, A 
A.M GET NEXT ENTRY-BYTE 


Е5 UNUSED DIR-ENTRY ? 
CHECK NEXT ENTRY 








Ap en ra ve mm 


NEXT-TRACK 


—————— + 


FF 
F3 


DA 


DD 


F2 
DD 


F4 
02 


F4 


DISPLAY "PGM=" 


POSIT CURSOR 


INLINX 


3DOFF, 

IGNB 

RETURN KEY ONLY ? 

NO, SO DECODE INPUT 

YES, SO DISPLAY NEXT 
DIRECTORY SECTOR 

END OF DIRECTORY ? 

YES, DIR RESTART 

NEXT SECTOR IN D 


IF BREAK PRESSED 


CLEAR "PGM=" USING 
6 BACKSPACES 


GOTO READ NEXT 


TOP OF HEXTABLE 
DEFINE SECTOR ( 0 TO F D 


COMPARE NEXT CHARACTER 
INCORRECT SECTORDEFINITION 


READ THIS SECTOR FROM TRKO 


IGNB 
HEXTAB OFFSET 6 


SELECTED PROGRAM = 0,1,2,3 
CONTINUE SEARCH UNTIL 
ADDR. = F400 

ADOFF, IF INCORRECT PRO.ID 
START OF DIR-BUFFER 


PROG.ID FOUND 


POINT TO NEXT 
DIRECTORY ENTRY 


Ú 
м 


9р 
9B 


9F 
93 
Al 


A3 


9B 
68 


42 
80 
62 
27 
6A 


02 
02 


02 
F3 
02 
F3 
02 


02 
02 


r5 
02 


F2 
02 


029B 
0268 


F542 
A,80 
0262 
F227 
0264 
D 


IT IS A BASIC PROGRAM ? 
NO JUMP TO MEMORY-READ 


GET BASIC-PROGRAM PARAM. 
FROM DIRECTORY-TABLE 


SET SIZE OF HEAP 
GET START OF HEAP 


SET BEGIN OF BASIC-PGM 
CALL ADDR 

SET BEGIN OF VARIABLE-TAB. 
CALL ADDR 

SET END OF VARIABLE-TABLE 


START-TRACK IN REG. D 
END-TRACK IN REG. E 


SET START OF HEAP AS 
INPUT-BUFFER ADDR. 
SAVE TRACK-INFO 
SIDESEL 


SET READ-COMMAND 
MULTISECTOR-READ 

GET CURRENT MEM-POINTER 
GET TRACK-INFO 
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MULTI WRITE 
%-> 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
“| 
| 
HE 
aDF 
%------- > 
IDN | 
| 
| 
| 
| 
| 
| genen 
| | 
| | 
| | +-> 
| | | 
| T 
Lethe ыы 
MEME 
MEME 
| ddr 
| | +---> 
| [| 
| | 
+-] 
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F3 DI MULTI-SECTOR WRITE 
F5 PUSH PSW 

E5 PUSH H 

D5 PUSH D 

c5 PUSH B 


CD B7 Fl CALL F1B7 PROLOGE 

21 0F F2 LXI H,F20F WRITE-LOOP LOCATION 

CD AC F1 CALL FLAC MOVE IT TO WORK-AREA 
2A 6C 02 LHLD 026C OUTPUT-BUFFER-ADDR. 


EB XCHG TO DE 

21 03 FE LXI H,FE03 SET DCE-BUS TO MODE 2 
36 A1 MVI М,А1 IN/OUT ІМ OUT 

2B DCX H A Cl B 

2B DCX H 

36 8E MVI М,8Е SELECT PORT 


ЗА 02 FF LDA FF02 CLEAR PENDING INTERRUPT 
ЗА 62 02 LDA 0262 SETUP 
WRITE COMMAND 


36 88 MVI М,88 SELECT FDC 

2B DCX H 

C3 3B 00 JMP 003B GOTO OUTPUT PROCESS 
F3 DI STOP IT 

EB XCHG 

22 6C 02 SHLD 026C SAVE CURRENT 

22 6E 02 SHLD 026E BUFFERPOINTERS 

CD CD Fl CALL F1CD I/0-CHECK 

CA EZ Fl JZ F1E2 EPILOGE 

3c INR A SET FOR NEXT SECTOR 
32 67 02 STA 0267 

06 QA MVI B, 0A 


SECTORNUMBER TO FDC 
PROCESS NEXT SECTOR 


F5 PUSH PSW DISK OFF 
c5 PUSH B 

D5 PUSH D 

E5 PUSH H 

3E DO MVI A,D0 


32 62 02 STA 0262 FORCE DEVICE ABORT 
Ср FO FO CALL FOFO DEVICE & MOTOR OFF 
E6 7F ANI 7F FLAG DEVICE BYTE 
C3 25 FO JMP F025 MULTILEVEL-EXIT 


F5 PUSH PSW DISK ON 

C5 PUSH B 

D5 PUSH D 

E5 PUSH H 

CD 90 Fl CALL F190 INIT DCE-BUS 

CD 00 Fl CALL F100 GET STATUS 

34 02 FE LDA FE02 CHECK IF POWER ON DISK-UNIT 
E6 01 ANI 01 

CA F2 F2 JZ F2F2 ==> IF POWER IS OFF 
CD 3C Fl CALL F13C SET MOTOR ON 

06 04 MVI B,04 TRY 4 TIMES 


CD 00 F1 CALL F100 TO GET THE DRIVE READY 
3A 61 02 LDA 0261 


B7 ORA A 

F2 FE F2 JP F2FE ==> AT READY 
CD 41 DE CALL DE41 WAIT 745MS 

05 DCR B 

C2 El F2 JNZ F2El --> TRY AGAIN 
21 09 F3 LXI H,F309 


CD 55 DD CALL DD55 DISPLAY 'DISK NOT READY' 
CD D4 DA CALL DAD4 

C3 Ва F2 JMP F2B4 TERMINATE VIA ƏDOFF 

ЗА 60 02 LDA 0260 

F6 80 ORI 80 FLAG DEVICE READY 

32 60 02 STA 0260 

C3 4D Cl JMP C14D РОРКЕТ END COMMAND 
44495348204Е4Ғ542052454144590000 

DISK NOT READY 


002020202020202000 LINEHEADER FOR DIR-DISPLAY 
2050474D3D00 
P GM = 
4449534B204552524F520D00 
DISK ERROR 








RESTORE F334 F5 


0262 SET RESTORE COMMAND AND 
F177 EXECUTE IT 
F100 GET STATUS 


19 AND CHECK IT 
F33D --> BUSY 


RETURN IF RESTORE COMPLETED 


F147 SELECT DEVICE 
A,D TARGET TRACK IS IN D 


F153 SET TARGET TRACK 
A,13 SET SEEK COMMAND 


F337 EXECUTE SEEK 


== F374 СА 7E F3 


-- F378 CA 85 F3 
== F37B C3 73 F3 


D,0000 
H,F410 TOP OF HEX-TABLE 
DDEO GET NEXT INPUT~CHARACTER 


F398 2A SB 02 


с ІМСЕ. CHARACTERPOSITION 

20 

END IF SPACE OR CR 
0D 
RESULT IS IN HL 

H 
H MULTIPLY CURRENT HEX-VALUE 
H BY 16 
H 
M IF CURRENT CHAR. - TABLEVAL 
F37E THEN JUMP 
L SELECT NEXT TABLEVALUE 
F385 UNTIL ZERO 
F373 
А,Ь 
А HEX-DIGIT = TABLEVALUE-1 
E 
Е,А INSERT АТ LEAST SIG. POS. 
F360 NEXT CHARACTER 
H 
H 
DD55 DISPLAY CR 
H,DC23 AND MSG 
DADS SYNTAX-ERROR 
F2B4 END VIA 3DOFF 
D BUFFERPOINTER IN DE, SAVE 


E 

H GET RELATIVE PROGR. ADDR. 
D 

0298 GET STARTADDR. 

D ADD TO GET THE ABS. ADDR, 
D OF BASIC PROGR. IN HL 

D 

D 


POSIT BUFFERPOINTER 


DDD2 GET SELECTION-NUMBER 

0D CR ONLY ? 
F49B ==> NO , GOTO DECODE 
F3F8 POPRET VIA SYNTAX-ERROR 
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SET DATA REG. 


SET SECTOR REG. 


SET TRACK REG. 


SET COMMAND 


WRITE TO FDC 


INIT DCE 


H, FEO3 
М,А1 


TRANSM. DATA TO FDC 


SELECT DATA REGISTER 
DATA FROM #263 
WRITE TO FDC AND TERMINATE 


SELECT SECTOR REGISTER 
SECTOR FROM #267 
WRITE TO FDC AND TERMINATE 


SELECT TRACK REGISTER 
TRACK FROM #266 
WRITE TO FDC AND TERMINATE 


FDC-COMMANDS 


SELECT COMMAND REGISTER 
COMMAND FROM #262 
WRITE TO FDC AND TERMINATE 


SET DCE BUS TO MODE Al BO 
OUT IN OUT OUT 

À Cl C2 B 

SET REG. SELECTION TO 
PORT B (#FE01) 

DATA TO PORT A (%ҒЕ00) 


SET DCE-BUS TO MODE 0 
IN IN IN OUT 
A Cl C2 B 


SET DISK ENABLED 


READ FROM FDC 


SET DCE-BUS TO MODE 2 
IN/OUT IN OUT 

A C1 B 
SET REG. SELECTION TO 
PORT B (8FE01) 
AND GENERATE A STROBE 


SET READ STROBE Š 
FETCH DATA FROM PORT A 
RESET STROBE 


MOVE 24 BYTES 
FROM H,L TO D,E 


USED TO MOVE DISK-I/0 
ROUTINE TO INTERRUPT AREA 
AND SAVE THE AREA. 


1⁄0 PROLOGE 


MASK INTERRUPT 


SAVE INTERRUPT AREA 
INTO ENVELOPE AREA 
MOVE THE 24 BYTES 


CLEAR I/0 STATUS 
D,E NEW AREA FOR DISK-1/0 


1/0-СНЕСК 
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SELECT STATUS REGISTER 
READ STATUS 


CUMULATE BY OR 

INTO $270 FOR ALL 
MULTIPLE I/0 

LOAD CURRENT SECTOR 
AND LAST SECTOR 

ALL SECTORS PROCESSED ? 
DECISION IN MAIN PART 








FLAC 
005F 
ЕЕЕ 


MOVE BACK ORIG. INT. RAM 
RESTORE ORIG. INT. MASK 


OF READ-LOOP 


MOV 
STAX 
INX 
POP 
EI 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
LDA 
ANI 
JNZ 
JMP 


A.M 
D 
D 
B 


FE02 

01 
0040 
F252 


GET 1 BYTE FROM FDC 
PUT IT INTO RAM 
NEXT RAM LOCATION 
SIMULATE RETURN 
READY FOR NEXT BYTE 
> 
> 
> 
> AWAITING INTERRUPT 
> FROM FDC 
> 
> 


> 
CHECK IF FDC=BUSY 


STILL BUSY, WAIT AGAIN 
EXIT AT END OF READ 


OF WRITE-LOOP 


MOV 
INX 
POP 
LDAX 
EI 
MOV 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 


M,B 
D 


B 
D 
В,А 


WRITE 1 BYTE TO FDC 
NEXT BYTE TO BE WRITTEN 
SIMULATE RETURN 

LOAD NEXT BYTE 

READY FOR NEXT WRITE 
BYTE IS IN B 

> 


> 
> 

> AWAITING INT. 
> 
> 


> 
CHECK IF FDC=BUSY 


STILL BUSY, WAIT AGAIN 
EXIT AT END OF WRITE 


LOGE FIE2 21 48 
1⁄0 ERE 1E5 1138 
FIE8 CD AC 
FlEB 3A 5F 
FLEE 32 F8 
БІРІ Cl 
FIF2 Dl 
FIF3 El 
FiFé Fl 
FlF5 FB 
FlF6 C9 
x ZZ EXECUTION-ADDR. 
READ-LOOP 38 F1F7 7E 
39 ҒІР8 12 
ЗА F1F9 13 
3B FIFA Cl 
3C FIFB FB 
3D FIFC 00 
ЗЕ FIFD 00 
3F FIFE 00 
+-> 40 FIFF 00 
| 41 F200 00 
| 42 F201 00 
| 43 F202 00 
| 44 F203 00 
| 45 F204 3A 02 
| 48 F207 E6 01 
%-- 4A F209 C2 40 
4D F20C C3 52 
x ZZ EXECUTION-ADDR. 
WRITE-LOOP 38 .F20F 70 
39 F210 13 
ЗА F2ll Cl 
3B F212 1A 
3C F213 FB 
3D F214 47 
3E F215 00 
3F F216 00 
+-> 40 F217 00 
41 F218 00 
42 F219 00 
63 F21A 00 
| 44 F21B 00 
| 45 F21C ЗА 02 
| 48 F21F E6 01 
%-- GA F221 C2 40 
4D F224 C3 96 
MULTI READ F227 F3 
F228 F5 
F229 £5 
F22A D5 
F22B C5 
F22C CD B7 
F22F 21 F7 
F232 CD AC 
*-» F235 2A 68 
F238 EB 
F239 21 03 
| F23C 36 Cl 
| F23E 2B 
| F23F 2B 
| F240 36 AE 
| F242 ЗА 02 
| F245 ЗА 62 
| F248 32 00 
| F24B 36 E8 
| F24D 2B 
| F24E FB 
| F24F C3 40 
| F252 F3 
| F253 EB 
| F254 22 68 
| F257 22 6A 
| F25A CD CD 
| F25D СА E2 
| F260 3C 
Е261 32 67 
F264 06 0A 
l F266 CD 83 
*-- F269 C3 35 


Fl 
Fl 
Fl 
02 


FE 


FF 
FE 


PROLOGE 

READ-LOOP LOCATION 
MOVE IT TO WORK-AREA 
INPUT-BUFFER-ADDR 


TO DE 
SET DCE-BUS TO MODE 2 
IN/OUT IN OUT 

A cl B 


SELECT PORT 

CLEAR PENDING INTERRUPT 
SETUP 

READ COMMAND 

SELECT FDC 


READY FOR FDC 
GOTO INPUT PROCESS 
STOP IT 


SAVE CURRENT 
BUFFERPOINTERS 
I/0-CHECK 

EPILOGE 

SET FOR NEXT SECTOR 


SECTORNUMBER TO FDC 
PROCESS NEXT SECTOR 
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DAI - SWISS DOS BY А. MEYSTRE 1983 XXXXXXx 
STARTED VIA UTILITY MODE BY SETTING XXXXXXX 
V6 TO F000 XKXXXXX 
KEYBOARD-LOOP F900 F3 DI 
F001 21 09 FO LXI Н,Ғ009 SET МЕМ RETURN-ADDR 
F004 E5 PUSH H AND CONTINUE 
F005 E5 PUSH H WITH STANDARD 
F006 C3 78 D5 JMP D578 KEYBOARD-PROCESSING 
F009 F3 DI ENTRY AFTER 
FOOA C5 PUSH B KEYBOARD PROCESSING 
F00B D5 PUSH D 
F00C Е5 PUSH H 
F00D F5 PUSH PSM 
FOOE 3E 09 МУІ A,09 TEST THE 4 BYTES 
F010 21 BA 02 LXI H.02BA OF THE INPUTBUFFER 
F013 16 04 MVI D, 04 
+-> F015 BE CMP M TAB-KEY PRESSED ? 
*-|-- Е016 CA 2C FO JZ F02C YES IT WAS --> 
l| F019 23 INX H 
I] F01A 15 DCR D CHECK NEXT BYTE 
| *-- F01B C2 15 F0 ЈМ F015 
-j---» FOIE FI POP PSW NO TAB PRESSED 
| FOIF El POP H 
| F020 11 POP D 
| F021 C1 POP B 
I F022 El POP H RETURN TO 
| F023 FB EI NORMAL WORK 
| F024 C9 RET 
| F025 2А 71 02 LHLD 0271 FROM АМҮ STACK LEVEL 
| F028 00 NOP 
| F029 C3 Е6 F7 JMP F7E4 TO EXTENDED EXIT 
*---» Е02С 36 00 MVI M,00 CLEAR THE TAB-CHARACTER 
Ғ02Е 21 00 00 LXI H,0000 
F031 39 DAD SP SAVE CURRENT STACKPOINTER 
F032 22 71 02 SHLD 0271 
Е055 00 NOP 
F036 21 78 05 LXI H,D578 INHIBIT FURTHER DOS 
F039 22 6E 00 SHLD 006E COMMANDS 
F03C FB EI 
F03D 3E 40 MVI A,40 DISPLAY THE DOS-PROMT 
РОЗЕ CD 14 DD CALL DDIA AND GET THE INPUT 
F042 DA 54 FO JC Е05% BREAK IS PRESSED --> 
Е045 CD D2 DD CALL DDD2 TEST COMMAND 
F048 FE OD CPI 0р JUST ENTER ? 
%---- FOGA C2 79 FO ЈМ F079 NO 
F04D ЗЕ 0С MVI A,0C IF ENTER ONLY, THEN 
FO4F EF RST 5 CLEAR SCREEN 
| Fo50 03 DATA 03 AND TERMINATE 
|---> F051 CD 5E DD CALL  DD5E NEW LINE 
| F054 F3 DI ----5» STOP INTERRUPT 
| FO55 3A 40 00 LDA 0040 CHECK CURRENT TASK 
| F058 E6 CO ANI co 
| FOSA 3E 3E MVI A,3E > CURSOR IF IN UTILITY 
| *-- F05C C2 61 FO ЈМ F061 
| | FO5F 3E 2А MVI А,2А — CURSOR IF IN BASIC 
| +-> F061 CD 60 DD CALL 0060 
F064 21 B9 02 LXI Н,0289  KEYBOARD-BUFFER-ADDR. 
F067 16 05 MVI D, 05 
%-> F069 36 00 MVI M, 00 CLEAR KEYBOARD-BUFFER 
| FO6B 23 INX H 
| F06C 15 DCR D ALL 4 POSITIONS 
| *-- F06D C2 69 FO ЈМ F069 
F070 21 00 FO LXI H,F000 ENABLE DOS-COMMANDS 
F073 22 6E 00 SHLD 006E 
-|---- F076 C3 1E FO JMP Е01Е 005 ЕХІТ 
CMD FROM -%---> F079 21 99 FO LXI H,F099 COMMAND-TABLE 
PROGRAM-CALL F07C 1E 01 MVI E,01 
F07E CD 34 CA CALL CA34 COMMAND SEARCH 
*-- F081 D2 8D FO JNC F08D INVALID ---> 
| F084 5E MOV E,M 
F085 23 INX H D, E=COMMAND-ADDR. 
| F086 56 MOV DSM 
| F087 21 25 FO LXI H,F025 COMMAND EXIT 
| FO8A ES PUSH SAVE IT 
| FO8B ЕВ XCHG 
| Е08С Е9 PCHL EXECUTE COMMAND 
+-> F08D CD 55 DD CALL DD55 
F090 21 23 DC LXI H,DC23 DISPLAY SYNTAX-ERROR 
F093 CD D4 DA CALL DADS 
F096 C3 25 FO JMP F025 COMMAND EXIT 
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- 9 03 44 49 52 29 Få DIR F429 DIRECTORY 
CONMAND-TARLE HE 04 4C 4F 41 44 A0 F3 LOAD F3A0 LOAD PGM/MEM 
F0A6 04 53 61 56 45 35 F6 SAVE F635 SAVE PGM 


FOAD 01 57 BO F6 n F6B0 SAVE MEM 
FOBI 02 44 4E CA F2 DN F2CA DISK ON 
F0B6 02 44 46 BO F2 DF F2B0 DISK OFF 
FOBB 01 5A 32 F7 2 F732 RESET DOS 
FOBF 01 55 ЕЗ 02 U 02E3 USER COMMAND 
F0C3 02 54 4E 20 F7 TN F720 TAPE ON 
Е0С8 02 54 46 29 F7 TF F729 TAPE OFF 
FOCD 02 42 53 61 F7 BS F761 SAVE BASIC PT 
F0D2 02 42 4C 72 F7 BL F772 LOAD BASIC PT 
F0D7 01 45 45 F7 E F745 РОКЕ 8135,2 
FODB 01 4D 4B F7 M F74B MERGE SETUP 
FODF 01 50 5A F7 P F75A %29В-%2ЕС 
FOE3 01 43 ЗЕ F7 с F73F RESET CURSOR 
F0E7 01 52 83 F7 R F783 RUN NNN 

А FOEB 01 30 АЗ F7 0 F7A3 MODE 0 

END OF TABLE FOEF 00 


VE OFF FOFO F3 DI SET DRIVE AND MOTOR OFF 
DRINE FOFL F5 PUSH PSM 
FOF2 E5 PUSH H 
FOF3 C5 P 
FOF% 06 06 MVI B,06 SELECT DEVICE REGISTER 
FOF6 3E 00 MVI A,00 SET DRIVE OFF 
FOF8 CD 83 F1 CALL F183 WRITE TO FDC 
TERMINATE 1/0  FOFB Сі POP B 
FOFC El POP H 
FOFD Fl POP PSM 
FOFE FB EI 
FOFF C9 Дат АЕ КЕЛТЕ 
GET STATUS F100 F3 DI š 
Е101 F5 PUSH PSM 
FIOS C5 PUSH B 
F103 C 
F104 06 OE MVI B,0E SELECT STATUS REGISTER 


READ FROM FDC 
SET STATUSBYTE TO #261 


GET DATA REG. F10F F3 DI 
F110 F5 PUSH PSW 
FII2 65 PUSH в 
F11 C5 
F113 06 08 MVI B,08 SELECT DATA REGISTER 


READ FROM FDC 
DATAREGISTERBYTE TO #263 


GET TRACK REG. FllE F3 DI 
FIIF -F5 PUSH PSW 
F120 E5 BUSH р 
F121 С5 
Fl22 06 0С MVI B,0C SELECT TRACK REGISTER 


F124 CD 9A Fl CALL F19A READ FROM FDC 
Fl27 32 64 02 STA 0264 CURRENT TRACK TO #264 


GET SECTOR REG. F12D F3 DI 
F12E F5 PUSH PSW 
Fier. Е5 SU А 
F130 C5 
Е151 06 0A MVI B,QA SELECT SECTOR REGISTER 


F133 CD 9A Fl CALL F19A READ FROM FDC 
F136 32 65 02 STA 0265 CURRENT SECTOR TO #265 


DRIVE ON F13C ЕЗ DI DRIVE ON, NO CHECKS 
F13D F5 PUSH PSW 
EN 
FISF С 
F140 06 06 MVI B,06 SELECT DEVICE REGISTER 
F142 ЗЕ 80 MVI A,80 SET DRIVE ON 
F144 C3 F8 FO JMP FOF8 WRITE TO FDC AND TERMINATE 
SET DEVICE REG. F147 F3 DI SELECT THE DRIVE 
F148 F5 PUSH PSW 
F149 E5 buan H 
F16A C5 
F14B 06 06 MVI B,06 SELECT DEVICE REGISTER 


DEVICE ATTR. FROM $260 
F150 C3 F8 FO JMP FOF8 WRITE TO FDC AND TERMINATE 
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Fig. 3.1 below shows the FC-50 System Block Diagram. 
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more commands with the DAI-SWISS-DOS: 


DBS Save BASIC-pointer to ОО] in memory 
DBL load BASIC-pointer after crash, may be your lucky 12 
DP reset BASIC-pointer to origin 29B = 2EC 
then use CLEAR MMM to shift your program 
@R NNN run from line NNN without clear of variables, usefull for BASIC 1.0 : 
«QU User-exit by jumping to 2E3 where normaly you will find a ret-conmand 
change C9 00 00 by C3 and your own routine address and come back 
via ret-command, All registers are saved and restored by DOS, 
e finally this command will terminate any DOS activity, 


All commands can be used in BASIC 1,0 or 1,1 and in Utility mode and exepted DIR 
they can all be called from a BASIC-program: | 
C$ ="W65E0 ВЕЕР MY GRAPHIC IN MODE 6"+CHR$ (13) :CALIM ##F7CO 
When the so called command is a LOAD, your current program may be 
overloaded thats why a RUN is automaticaly generated after this LOAD. 
By this methode you can run an automatic program show, 


One of the musts was to run old software beginning at #300 and to 
Save Screen-pictures from any graphic-mode, For this reason the 
workareas of the DOS are located in the 128 bytes DAI I/O-buffer 
and in the upper part of ENVELOPE 1, So you can not play music 
during disk read or write, After LOAD of а program you can use 
ENVELOPE 1 without restrictions, 
The location of the DOS-ROM is F000 - FTFF. Programs and memory-data 
are read or written without buffering directly to the final RAM-locations 
This methode save space and time, On this way the most old programs 
can be SAVEed and LOADed by disk without changes, 
The loading or Saveing time for a program or memory-file is about 
the same as from tape, but measured in seconds instead of minutes, 
A NOK program need only 7 seconds, a MODE 6 picture 5 seconds if the 
disk motor is remaining on, Getting the drive ready by DN (motor on) 
will need 1 second extra, 
The disks can be organised in all formats supported by the TEAK 
FC-50 controller ( IBM-format ). 
the directory display at loading time looks like this: 

TEST DISK FG? 23.04.83 this is the disk-header 

01 B DIR-LISTING 

02 B FGT-DEMO 1 

03 B FGT-DEMO 1,1 

10 M FGT SMALL CHARACTERS 

11 M FGT LARGE CHARACTERS 

12 M DEMO + FG? 29B-183F 

13 M SCREEN 1 MODE 6A 

20 M SCREEN 2 MODE 6A 

21 B SHORT TEST BASIC ONLY 

22 B POKE ACTION рАТпатіс 8 PCM- 
label ....„„** 
data type .....% 
B - BASIC 
M - Memory 
documentation e o o PANINI KIEK 
entry for the program selection by label . Жж 
if you type just return, you get the next directory block displayed 
DIR will terminate without loading at BREAK. Any label can be entered 
at any time, DIR is working in all text-screen-modes and in UP, 
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2, 


How to initialize the system ? After power on or reset go to 
utility-mode by typing 


Ut then RETURN-key 

then change the keyboard-vector V6 
V6 D578-FO00 and REPURN-key twice 
нй nad 


then you ean return to BASIC by typing B 


| From now the DOS is ready for execution of each command, 


As you can See the often used timer-vector V7 is not used by the DOS 
but during the disk I/O the V7 interrupt is used for the 


' data transfer, This will stop your clock counter for somes seconds, 


Some of the DOS-commands are usefull without disk. The used methode of 
intercepting the TAB-key can be used to create your own 
ommand extension, 
hare was not enought space in the ROM to create a secure DELETE 
command, but d'ont worry about this, The best way to never | 
lost important data is to create many backup copies. The valid 
copy is the last one found in the directory, . 
Using BASiC-programs delete,compress,copy or any else is possible, 
The follwing DOS-software is resdy now: 


MONITOR Disk manipulations and hardware-test 

FORMATER formate, initialize directory and check disk 
SCREEN-SHOW save and load MODE 6 screens ( demo ) 

COPY disk copy with 1 drive ( one to one for backup ) 


Тһе DOS-command are supporting one drive only, but under program-control 
up to 4 drives can be accessed, 
Тһе DAI-SWISS=DOS works with BASIC 1.0 and BASIC 1,1 

I am using my DOS since 1 year without any crash or datalost, 


January 1984 A, Meystre HB9BIG 
Andlauerstr, 10 
CH-4132 MUTTENZ 
SWITZERLAND 


wT Е БӘ kK ғ “Ó * > deh 
ғғ. p Ж E> = E> K iE MONITOR 
Dew X CZ E= STATUS 


== a << кз Te in 


OT READ 
PROTECTED 


кас» C am 
BENS. F rt 
= IDE 


TRACK 
SECT. 


TRO LOST 
DATA 





DAInamic 84-20 43 








Е DAI-SWISS-DOS 


This developement was much harder than I first think, but compared 
with the DAT-DOS I get much more for the money with a greather ease 
of use. As hardware I chose the 


TEAK FC-50 controller and the TEAK FC-50F drive 


So I get 400K of disk storage on one floppy for about SFr 1100.-. 

The housing and the power supply is not included in this price. 

It is not possible to use the DAI-power-supply because you will need 

2 Amperes at 5 Volts end 2 Amperes at 12 Volts for the disk-unit, 

The disk-system is connected via the DCE-bus. To get & real external 
interrupt input, the DCE-bus must be slitly modified, but this changes 
are easy. The slow clockrate of the DAT make it not possible to use 

the double recording density (MFM) of the drive. If you want to use 

MFM and shifting so your diskcapacity to 800K on 1 diskette, you 

will need a DMA-attachement, or may be instead of the slow interrupt 
way of the TMS5501-chip use the HOLD input of the 8080-processor, 

but I have not tested this yet, Anyway my DOS-system is working fine 
since 1 year with single recording density (FM,400K). 

The interface from the DCE-bus to the FC-50 controller is built with 

9 low cost TTL-chips. After the implementation of this DOS it is still 
possible to use port A of the DCE-bus alternatively with the disk, 

The selection function is done by software or hardware. The DOS-software 
consist of disk-access subroutines for all controller functions callable 
from BASIC or machine language programs and the following DOS-direct- 
commands initiated by the useless TAB-key. Keying TAB, the DOS-prompt @ 
is displayed indicating DOS-command-state reached, Every DOS-command is 
terminated by the RETURN-key. 


Start DOS in UP-mode by setting V6 D570-FO00 
@DN disk motor on 
DDF disk motor off 
@SAVE ХХХХХХХХХХХХХХХХХХХХХХ 
save a BASIC-program to disk with 22 character for documentation 
4)W298 АӨҒЕ ХХХХХХХХХХХХХХХХХХХХХХ 
save memory locations 29B - АЕР ХХХХХХ = documentation text 
this could be a BASIC-program with the machine code part 
all saved and loaded in once, 
or saving a picture in MODE 6A 
@w63B8 BFFF 
the pointer addresses needed to do this are found in UT-mode 
with D290 2AF 
The so saved programs and memory-parts can be retrieved by 
@DIR displaying 4 entries of the directory and then waiting for 
& program selection by numerical label or just RETURN to continue. 
You ean do this even in MODE 6A, Or if you know the label just use 
DLOAD LL 
where LL is the numeric label, 


now some non disk commands: 


ж clear screen 
@0 set screen to MODE 0 
ec reset cursor to standard character 


«TN tape on 
ФТЕ tape off 


or as mergeing help: first CLEAR MMMMM for enough memory space 


then EDIT first part and BREAK, BREAK 
M prepare for merge command 
LOAD LL the second part. 


@E and RETURN key twice to get the first part back and merged to second 
part, but you must use different linenumbers. 
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83/353 
83/14 

83/81 

83/142 
83/253 
83/333 
83/249 
83/149 
83/151 
83/289 
83/53 

83/283 
83/346 
83/317 
83/150 
83/217 
83/152 





83/157 


83/297 
83/72 

83/380 

83/305 


83/368 


83/6 
83/330 
83/56 
83/374 
83/34 
83/399 
83/294 
83/384 


83/219 
83/308 
83/418 
83/257 
83/33 

83/328 
83/285 
83/39 

83/224 
83/16 

83/154 
83/15 

83/359 
83/363 
83/102 
83/138 
83/153 


Bits & Bytes / Char. generator / Math’ fun 
Catalog 

Catalog 

Catalog 1.4.83 

Catalog 

Catalog NL 

DAI service manual 

DAI-nibble 

DDT : description DAlnamie debugging tool 
рот: Erratus 

DIDAISOFT : Catalog 

Games collection 12 

Programs T. Mikulic 

РОТ : Poke notes 

SFGT : specifications 

Software contributions 

Toolkit 5 





Hardcopy source DTP 


Centronics 739 printer 

DCE bus : Universal interface card 
EPROM-programmer 
EPROM-programmer (English) 
Epson MX-80/100 : Use Graftrax + mode 111 
Epson : Bit image graphics 

High speed data loader 

KEN-DOS floppy standard 
KEN-DOS information 

MDCR : Review on use 

MDCR : Tape direction indication 


V. Rompaey 


Mikulic 
Hermans 
Lambrecht 
Druijff 


Mariatte 


Atherton 
Uytterhoeven 
Beuckelaers 
Knoops/Atherton 
de Dauw 
Epson USA 
Kop/Rison 
Gooswit 
Gooswit 
Atherton 
Siccardo 


Printers : Specs Star DP-510/515: Epson RX-80/FX-80 .— 


Unidata : processor card 


Groeneveld 


su ua: 


16 colour characters 


COLORG : programming techniques (English) 


Deleting parts of programs 

Demo ON ERROR GOTO 
Duplication of program lines 

Entry to editor 

Evaluation <Star hunt> 

Hints and tips 

How to assign values to variables 
How to make a program 

How to make fast running programs 


_IF-THEN-ELSE statement 


Mathematical operators 

Printer on/off 

Programming in machine language 

Run (line nr) in BASIC V1.0 

Timing problems in time measurements 


Mariatte 
Druijff/Atherton 
Vandebergh 
De Bont 

Di Martino 
Atherton 
Druijff 
Druijff 
Druijff 
Druijff 
Boerrigter 
Druijft 
Druijff 
Druijff 
Gruiters 

v. Lieshout 





83/24 


Magazine news 


Schepens 





83/96 
83/27 
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8080 mnemonics with BASIC equivalent 
CP/M 


Atherton ` 
Digital Research - 






Didaisoft info 





83/335 


83/408 
83/270 


- 83/322 
83/400 


83/364 


Course DCE-microcomputer - 1 
Course DCE-microcomputer - 2 
Course microprocessors - 1 
Course microprocessors - 2 
Course microprocessors - 3 
Lamps & Switches.: Connections 


Dirksen Opleidingen 
Dirksen Opleidingen 
Beuckelaers 
Beuckelaers 
Beuckelaers 

de Bont 





- 83/250 
- 83/188 


83/234 
83/208 
83/232 
83/220 
83/327 
83/321 

83/174 
83/112 
83/327 
83/179 
83/202 
83/343 
83/178 
83/327 
83/180 
83/247 
83/321 
83/184 
83/167 
83/290 
83/168 
83/256 
83/394 
83/370 
83/208 
83/200 
83/388 


83/42 


AZERTY keyboard routine 
Basicode 2 

Bootstrap for screen files 

Cassette adjustment test 

Cassette routines SDK-85 interface 
Cassette tape lister 

Changing Baud-rate 

Conversion programs to IMP INT 
Conversion upper to lower case 
РА! as terminal on telephone lines 
Disable Break 

Flashing in 4 colour 

Integers : Print USING alignment 
Micro Fast Graphics 

Negative cursor ^ 
Paddles : How to read event buttons 
Printer spooler 

Program generator 

Program generator : erratum 
Read/write in Utility 

Sereen continuation lines 

Screen continuation lines (French) 
Screen to buffer / buffer to screen 
Screen to buffer / buffer to screen 
Seikosha GP100 : New characters 
Sort in machine language 

Use of GOTO X/ RUN X 

Use of direct commands in programs 
Video RAM table generator 


SPL Assembler 


Schepens 
v; Lieshout 
De Winter 
Maríatte ” 
v. Оо! 
Assink 
Atherton 
Looije 
Boerrigter 
Gruiters 
Atherton 
Harte 
Bonne. 
Tjoews 
de Bont 
Atherton 
Lelie 
Looije 
Looije 
Boerrigter 
Boerrigter 
Boerrigter/Dufour 
Hermans 
De Bont 
de Jong 
Poels 

v. Dunne 


„Dufour 


Pennisi 


Sphynx 






















83/162 Sorting demo Maertens 
83/252 Speed comparison BASIC-PLM Uliana 
83/218 Videotex in Belgium RTT Belgium 
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82/176 
82/86 | 
82/318 
82/195 


82/154 
| 82/62 


PAGE 


DBL: Bootstrap loader V1.* 
DBL : Bootstrap loader V2.* 

ОМА : Alternative printer routine 
DNA : modif. altern. printer routine 
DNA : modifications 
FGT : check on ASCII-values used 
Hardcopy mode 0 
Lichtpen routine 
MDCR tape controller 
ML programs in à REM-statement 
Mode 7 
Mode 7/8 
Mode 8 
Mode 8 : 240 x 528 resolution 
One textline in mode 5/6 
Oscilloscope 

Printer: alternative user routine 
RANDOM: how random is it 
Variable cursor 
Video RAM : demo control + mode bytes 
Weather satellite pictures 


св -representation 
DAl-panic 


SPU : System program unit 
Secundary Education 2 


DAltime | 
. Flight simulator 
Mixing of phrases 


2. Rohrschach tests 


Interactive Videotex 
Viditel 


DAlnamic 1983 


SUBJECT 


Hermans 
Sip 
Boerrigter 
Hermans 
Druijff 
Looije 
Bakker 


Dal 
Druijff 


v. Rompaey 


Bonduelle 
Meystre 
Moens 

de Bont 


RTT Belgium 
v.d. Hijden 


AUTHOR 





83/244. 


Mathematic programs 


Duluins 00 





83/46 
83/45 
83/328 
83/249 
83/176 


DAI floppies 
FGT-DISK-PEEK-POKE-2 
File handling 

New DAI master DOS 
Random access 


Baptiste 


Couwberghs - 


Atherton ` 
INDATA 


: Couwb 





83/37 
83/59 
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32 Display modes and 136 colours 
Audio cassette interface - 1 


Gidney 5 
Boerrigter 


_ 83/130 


83/201 


83/28 
. 83/298 
. 83/376 
- 88/172 


83/107 
83/291 


83/28 
. 83/228 


83/135 
83/231 
83/379 
83/254 
83/311 
83/329 
83/308 


Audio cassette interface = 2 

BASIC function CALLM п.т. 

BASIC function TAB 

BASIC monitor - part 1 

BASIC monitor = part 2 

DAI BASIC : extension ON ERROR GOTO 
DALBASIC : extension restart routines 
DAI BASIC : exension restart routines (French) 
DCE bus : Initialisation 

Editor story 

Error messages : codes 

Firmware manual : corrections 

Firmware manual: corrections - 2 

Paddles : explanation and modification 
ROM Index 

Use of OTSW # 131 

Video ВАМ: screen control bytes (English) 


Boertigter 
Dufour 
Boerrigter 
Boerrigter 
Boerrigter 
Looije 
Looij 
Looije/Dufour 
Boerrigter 
Boerrigter. 
Dufour 
Boerrigter 
Boerrigter 
Dufour 

Hards 

Atherton 
Looije/Atherton 











83/101 
83/372 
83/387 
83/285 


83/169 
83/158 
83/64 

83/128 
83/137 
83/412 
83/319 
83/278 
83/134 
83/161 
83/171 
83/175 
83/40 

83/137 
83/19. 

83/186 
83/332 
83/201 
83/199 
83/70 

83/248 
83/276 
83/137 


Character invasion 
Labyrinth game 
Maze game 

Star hunt 


Hermans 
de Bont 
Dierckx 
v. Espen 





2D Transformations 

3D Plot : Rotating bugalow 
3D colour pictures 

3D drawing : Hyperboloide 
Blocin reserve 

Christmas night 

Circle drawing 

Copy variations 

Cube : rotating + translating in space 
FGT.: Demo on use 

FIAT logo 

Graftext 

Greetings from Hawai 

Hour glass 

Incremental circle generation 
Large text 

Marzianetto 

Mountains 

Notte di fuoco in mode 1 
Paint : filla shape with a colour 
Shadeshape 

Shape design 

Symmetric fan 


—— 


v. Amerongen 
Vingerling 
Roelants 
Roelants 
Druijff 

Moeys 
Doumont 
Vingerling 
Dufour 
Atherton 
Uliana 

v. Amerongen 


, De Bont 


Druijff 

v. Amerongen 
Groeneveld 

Uliana 

De Brouwere/Dufour 
Uliana 

Druijff 

Di Giris 

Hermans 

v. Randen 





83/20 
83/407 


83/126 


83/320 
83/86 

83/207 
83/164 


A/D conversion 

Adapter DAI/RGB - Monochrome monitor 
DAI Character generator 

DA! schematics i errata = 2 

Defectuous +5V power supply 

Power supply and overvoltage protection 
Video hardware modifications 


Kopp 

Mariatte 

Cassebaum 
Boerrigter 

Verberkt 

Gorswandt 
Hospers/Doornenbal 





83/5 


Acrobates 


v. Rijsselberg 
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